home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / CygnusEd / PreviewMsg.ced < prev    next >
Encoding:
Text File  |  1996-11-11  |  762 b   |  31 lines
  1. /* PreviewMsg.ced by Michael Røstad Ilsaas
  2. ** $VER: PreviewMsg.ced v1.1 (08.07.96)
  3. **
  4. ** An ARexx script that shows you (in THOR's messagetext listview)
  5. ** what your message will look like when read by others in THOR.
  6. ** CygnusEd-version. Original FSE version by Troels Walsted Hansen
  7. */
  8.  
  9. options results
  10.  
  11. p = ' ' || address() || ' ' || show('P',,)
  12. thorport = pos(' THOR.',p)
  13. if thorport > 0 then thorport = word(substr(p,thorport+1),1)
  14.  
  15. /* preview msg text in THOR */
  16. "beg of file"
  17. mark
  18. "end of file"
  19. copy
  20. save clip as "t:PreviewMsg.temp.file"
  21.  
  22. address(thorport)
  23. THORTOFRONT
  24. SHOWTEXT 't:PreviewMsg.temp.file'
  25. if(rc ~= 0) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
  26.  
  27. /* cleanup and exit */
  28.  
  29. address command 'delete >nil: t:PreviewMsg.temp.file'
  30. exit
  31.